home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Magazine Collection 2001
/
Delphi Magazine Collection 20001 (2001).iso
/
DISKS
/
Issue34
/
system
/
Edit.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1998-05-11
|
24KB
|
588 lines
object Form1: TForm1
Left = 167
Top = 172
Width = 696
Height = 480
Caption = 'Form1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object RzToolbar1: TRzToolbar
Left = 0
Top = 0
Width = 688
Height = 33
ParentShowHint = False
TabOrder = 0
ToolbarControls = (
FileNew
FileOpen
FileSave
FilePrint
RzSpacer1
SpeedButton5
SpeedButton6
SpeedButton7
RzSpacer2
UndoButton
EditCut
EditCopy
EditPaste
EditDelete
RzSpacer3
EditBold
EditItalic
EditUnderline
RzSpacer4
SpeedButton16)
object FileNew: TSpeedButton
Left = 4
Top = 4
Width = 25
Height = 25
Hint = 'New'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666660000000000666666666FFFFFFFFFF66
0000666668777777770666666668888888888F660000666668FFFFFFF7066666
6668F66666668F660000666668FFFFFFF70666666668F66666668F6600006666
68FFFFFFF70666666668F66666668F660000666668FFFFFFF70666666668F666
66668F660000666668FFFFFFF70666666668F66666668F660000666668FFFFFF
F70666666668F66666668F66000066F668FFFFFFF7066666F668F66666FF8F66
0000668F88FF8FF0000666668F88F6866888866600006668B8F8FFF7F8666666
6878F86668F86666000066FF8FBFFFF786666666FF8F7FFFF886666600006668
8BFF8888666666666887FF888866666600006668B8B8F66666666666686878F6
666666660000668F68F66666666666668F68F66666666666000066F668F668F6
66666666F668F668F66666660000666668F66666666666666668F66666666666
0000}
NumGlyphs = 2
end
object FileOpen: TSpeedButton
Left = 29
Top = 4
Width = 25
Height = 25
Hint = 'Open'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
00006666000000000000066666FFFFFFFFFFFFF6000066688888888888800666
68888888888888F600006668FB7B7B7B7B80066668F6666666668FF60000668F
B7B7B7B7B70806668F666666666688F60000668F7B7B7B7B780806668F666666
6668F8F6000068F7B7B7B7B7B0880668F6666666666888F6000068FFFFFFFFFF
80780668FFFFFFFFFF8F68F6000068888888888888B8066888888888888868F6
0000668F7B7B7B7B7B7806668F666666666668F60000668FB7B7B7FFFFF80666
8F666666FFFFF8F60000668F7B7B7F88888866668F66666F8888886600006668
FFFFF8666666666668FFFFF86666666600006666888886666666666666888886
6666666600006666666666666666666666666666666666660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object FileSave: TSpeedButton
Left = 54
Top = 4
Width = 25
Height = 25
Hint = 'Save'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
66666666666666666666666600006666666666666666666666FFFFFFFFFFFFF6
00006660000000000000666668888888888888F6000066044074477704406666
8F668F8F68F668F60000660440744777044066668F668F8F68F668F600006604
40744777044066668F668FFFF8F668F60000660444777777444066668F666888
866668F60000660444444444444066668F666666666668F60000660440000000
044066668F66FFFFFFF668F6000066040FFFFFFFF04066668F668888886F68F6
000066040FFFFFFFF04066668F68F666668F68F6000066040F888888F0406666
8F68F666668F68F6000066040FFFFFFFF04066668F68F666668F68F600006607
0F888888F00066668F68F666668F68F6000066040FFFFFFFF04066668F68F666
668F68F600006600000000000000666688888888888888660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object FilePrint: TSpeedButton
Left = 79
Top = 4
Width = 25
Height = 25
Hint = 'Print'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
66666666666666FFF66666660000666666600066666666666666F888FFF66666
00006666600788006666666666F8866888FFF666000066600778008800666666
688668888888FFF60000660778878800880066668F688688888888F600006688
877788880080666688866688888888F600006887777788888800666886666688
888888F6000068F7777F888888880668F6666F888888888F000068F77FF77788
88880668F66FF6FF8888888F000068FFF779977788880668FFF6F8866688888F
000068F77AA7778807880668F6688666888F888600006688F77788FF07006666
88F666886686F8660000666688F8FFFFF06666666688F8F666686F6600006666
6688FFFFFF0666666666886F666686FF0000666666668FFFFFF0066666666686
F666F88600006666666668FFF8866666666666686FF886660000666666666688
8666666666666666888666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object RzSpacer1: TRzSpacer
Left = 104
Top = 2
end
object SpeedButton5: TSpeedButton
Left = 112
Top = 4
Width = 25
Height = 25
Hint = 'Left Justify'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
00006666666666666666666666FFFFFFFFFFFF66000066600000000000066666
6888888888888666000066666666666666666666666666666666666600006666
666666666666666666FFFFFFFFF6666600006660000000006666666668888888
8866666600006666666666666666666666666666666666660000666666666666
6666666666FFFFFFFFFFF6660000666000000000006666666888888888886666
0000666666666666666666666666666666666666000066666666666666666666
66FFFFFFFF666666000066600000000666666666688888888666666600006666
6666666666666666666666666666666600006666666666666666666666FFFFFF
FFFFFF6600006660000000000006666668888888888886660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object SpeedButton6: TSpeedButton
Left = 137
Top = 4
Width = 25
Height = 25
Hint = 'Center Justify'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
00006666666666666666666666FFFFFFFFFFFF66000066600000000000066666
6888888888888666000066666666666666666666666666666666666600006666
66666666666666666666FFFFFFFF666600006666600000000666666666688888
8886666600006666666666666666666666666666666666660000666666666666
66666666666FFFFFFFFFF6660000666600000000006666666688888888886666
0000666666666666666666666666666666666666000066666666666666666666
6666FFFFFFFF6666000066666000000006666666666888888886666600006666
6666666666666666666666666666666600006666666666666666666666FFFFFF
FFFFFF6600006660000000000006666668888888888886660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object SpeedButton7: TSpeedButton
Left = 162
Top = 4
Width = 25
Height = 25
Hint = 'Right Justify'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
00006666666666666666666666FFFFFFFFFFFF66000066600000000000066666
6888888888888666000066666666666666666666666666666666666600006666
666666666666666666666FFFFFFFFF6600006666660000000006666666668888
8888866600006666666666666666666666666666666666660000666666666666
66666666666FFFFFFFFFFF660000666600000000000666666688888888888666
0000666666666666666666666666666666666666000066666666666666666666
666666FFFFFFFF66000066666660000000066666666668888888866600006666
6666666666666666666666666666666600006666666666666666666666FFFFFF
FFFFFF6600006660000000000006666668888888888886660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object RzSpacer2: TRzSpacer
Left = 187
Top = 2
end
object UndoButton: TSpeedButton
Tag = 772
Left = 195
Top = 4
Width = 25
Height = 25
Hint = 'Undo'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000666666666666666666666666666666666666000066666666666666666666
6666666666666666000066666666666666666666666666666666666600006666
666666666F66666666666666666F66660000666FFFFFF66684F6666666FFFFF6
6688F666000066844444F666848F66666888886666688F6600006684444F6666
684F66666888866666668F660000668444F66666684F66666888666666668F66
00006684484FF6666F4F666668868FF6666F8F660000668486844FFFF4866666
6866688FFFF88666000066886668844448666666666666688888666600006666
6666688886666666666666666666666600006666666666666666666666666666
6666666600006666666666666666666666666666666666660000666666666666
6666666666666666666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
OnClick = EditButtonClick
end
object EditCut: TSpeedButton
Tag = 768
Left = 220
Top = 4
Width = 25
Height = 25
Hint = 'Cut'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666FF66666666FF660000668448666666844866666886F666666887F6
0000684664866668466486668F686F66668668F6000068466646666466648666
8F668F6668F668F600006846664666646664866686F68F6668F6686600006684
6648668466486666686F8FF668F686660000666844448844448666666688886F
888866660000666664444444466666666668888888866666000066666648FF84
666666666666887788F6666600006666668F00F06666666666668777786F6666
0000666668F77F07066666666668777F7786F666000066668F7708F770666666
66877788F7786F6600006668F770668F77066666687778668F7786F60000668F
77066668F77066668777866668F7786F000068F7706666668F770668F7786666
668F778F000068F70666666668F70668F78666666668F78F000068F066666666
668F0668F866666666668F8F0000688666666666666886688666666666666886
0000}
NumGlyphs = 2
OnClick = EditButtonClick
end
object EditCopy: TSpeedButton
Tag = 769
Left = 245
Top = 4
Width = 25
Height = 25
Hint = 'Copy'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
66666666666666FFFFFFFFF600006666660000000000666666666888888888F6
000066666687777777706666666668F6666668F600006666668FBFBFBF706666
666668F6666668F600006666668BFBFBFB706666666668F6666668F600006666
668FBFBFBF7066666FFFF8F6666668F600006000008BFBFBFB706666888888F6
666668F600006877778FBFBFBF7066668F6668F6666668F6000068FFFF8BFBFB
FB7066668F6668F6666FF8F6000068FFFF8FBFBF000066668F6668F666888866
000068FFFF8BFBFB7F8666668F6668F6668F8666000068FFFF8FBFBF78666666
8F6668FFFF886666000068FFFF888888866666668F66688888866666000068FF
FFFFFF06666666668F6666FF8F666666000068FFFFF00006666666668F666888
86666666000068FFFFF7F866666666668F6668F866666666000068FFFFF78666
666666668FFFF886666666660000688888886666666666668888886666666666
0000}
NumGlyphs = 2
OnClick = EditButtonClick
end
object EditPaste: TSpeedButton
Tag = 770
Left = 270
Top = 4
Width = 25
Height = 25
Hint = 'Paste'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666FFFF66666
66666666666FFF666666666600006FFF000886666666666666888FFF66666666
00006666668008666666666666668887F66FFF66000066666668F08000066666
6FFFF8787F8887F60000660000078F00F80066668888868787F7887F00006877
777778F0070B8668F6666668787F868F000068FFF777888F000F0668F666668F
8787868F000068FF7F778770708B0668F666668F7878668F000068FFF7778008
08F88668F666668FFF866686000068FF7F7788888B706668F666668888666866
000068FFF777787BF8066668F66666687FFF8666000068FF7F77788888666668
F666666688886666000068FFF777780666666668F66666668F666666000068FF
FFF77806666666687FFFFFFF8666666600006688888888666666666688888888
6666666600006668FF7806666666666668FFFF8F666666660000666888888666
6666666668888886666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
OnClick = EditButtonClick
end
object RzSpacer3: TRzSpacer
Left = 320
Top = 2
end
object EditBold: TSpeedButton
Tag = 1
Left = 328
Top = 4
Width = 25
Height = 25
Hint = 'Bold'
Flat = True
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666660000006666666666666666660000006666FFFFFFFFFF66660000006660
000000000FF66600000066888000888000FF6600000066668000F688000F6600
000066668000F668000F6600000066668000F66800066600000066668000FFF0
0066660000006666800000000FF66600000066668000888000FF660000006666
8000F688000F6600000066668000F66800066600000066668000FFF000666600
0000666000000000066666000000668888888888666666000000666666666666
666666000000666666666666666666000000}
OnClick = EditSelectionClick
end
object EditItalic: TSpeedButton
Tag = 2
Left = 353
Top = 4
Width = 25
Height = 25
Hint = 'Italic'
Flat = True
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777770000007777777777777777770000007777FFFFFFF77777770000007778
0000000F777777000000777788800F777777770000007777778008F777777700
00007777778800F77777770000007777777800F777777700000077777778008F
77777700000077777778800F77777700000077777777800F7777770000007777
77778008F77777000000777777778800F777770000007777777778008FF77700
0000777777780000000F77000000777777778888888777000000777777777777
777777000000777777777777777777000000}
OnClick = EditSelectionClick
end
object EditUnderline: TSpeedButton
Tag = 4
Left = 378
Top = 4
Width = 25
Height = 25
Hint = 'Underline'
Flat = True
Glyph.Data = {
4E010000424D4E01000000000000760000002800000012000000120000000100
040000000000D800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666660000006666666666666666660000006666FFFFFFFFFF66660000006668
0000000000F666000000666688888888886666000000666666FFFFFFF6666600
00006666680000007F66660000006666800788800F66660000006666800F6680
0F66660000006666800F66800F66660000006666800F66800F66660000006666
800F66800F66660000006666800F66800F66660000006666800F66800F666600
000066680000F80000F666000000666688886688886666000000666666666666
666666000000666666666666666666000000}
OnClick = EditSelectionClick
end
object RzSpacer4: TRzSpacer
Left = 403
Top = 2
end
object SpeedButton16: TSpeedButton
Left = 411
Top = 4
Width = 25
Height = 25
Hint = 'Help'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
66666666666666666666666600006666666600666666666666666688F6666666
000066666600850666666666666688668F666666000066660087F75066666666
6688666668F666660000660087FF877506666666886666F6668F666600006087
FF88087750666668F666888F6668F6660000658F8800508775066668F6886668
F6668F66000065880055550877506668886666668F6668F60000650055555550
87750668F666866668F6668F00006585555B3555087006668F666886668F6886
0000665855557BB55080666668F666688668F8F600006665855335BB55006666
668F6886886688F6000066665855BBB3555066666668F688886668F600006666
658555555500666666668F6666668866000066666658555500666666666668F6
668866660000666666658500666666666666668F886666660000666666665066
6666666666666668666666660000666666666666666666666666666666666666
0000}
NumGlyphs = 2
end
object EditDelete: TSpeedButton
Tag = 771
Left = 295
Top = 4
Width = 25
Height = 25
Hint = 'Erase'
Flat = True
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
6666666666666666666666660000666666666666666666666666666666666666
00006FF6FF6666666666666666666666666666660000FFFFFFFF666666666666
666666FFF66666660000FFFFFF81116666666666666668886F6666660000FFFF
F8911116666666666666866686F666660000FFFFF9191111666666666668F666
686F66660000FF6F61999111066666666668F6666686F6660000F66669191910
8066666666686F6668686F66000066666691910378066666666686F6866686F6
00006666666910BB37806666666668686666686F0000666666663BF7B3780666
66666686F666668600006666666663BF7B303066666666686F66686800006666
6666663BFB0333666666666686F686660000666666666663B37B336666666666
68686666000066666666666637BBB366666666666686F6660000666666666666
63FBBB666666666666686F660000666666666666663FBB666666666666668666
0000}
NumGlyphs = 2
OnClick = EditButtonClick
end
end
object RzStatusBar1: TRzStatusBar
Left = 0
Top = 415
Width = 688
Height = 19
TabOrder = 1
object RzClockStatus1: TRzClockStatus
Left = 602
Top = 1
Width = 87
Height = 19
BorderWidth = 1
Align = alRight
Format = 'hh:nn:ss am/pm'
end
object RzStatusPane1: TRzStatusPane
Left = -1
Top = 1
Width = 594
Height = 19
BorderWidth = 1
Align = alLeft
end
end
object RichEdit1: TRichEdit2
Left = 0
Top = 33
Width = 688
Height = 382
Align = alClient
TabOrder = 2
end
object MainMenu1: TMainMenu
Left = 10
Top = 53
object File1: TMenuItem
Caption = '&File'
object New1: TMenuItem
Caption = '&New'
ShortCut = 16462
end
object Open1: TMenuItem
Caption = '&Open...'
ShortCut = 16463
end
object Close1: TMenuItem
Caption = 'Close'
end
object N1: TMenuItem
Caption = '-'
end
object Save1: TMenuItem
Caption = '&Save...'
ShortCut = 16467
end
object SaveAs1: TMenuItem
Caption = 'Save &As...'
ShortCut = 16449
end
object N2: TMenuItem
Caption = '-'
ShortCut = 189
end
object SaveSetttings1: TMenuItem
Caption = 'Save Setttings'
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 115
end
end
object Edit1: TMenuItem
Caption = '&Edit'
end
object Format1: TMenuItem
Caption = 'F&ormat'
object Font1: TMenuItem
Caption = '&Font...'
end
object N3: TMenuItem
Caption = '-'
end
object Bold1: TMenuItem
Tag = 1
Caption = '&Bold'
ShortCut = 16450
OnClick = EditSelectionClick
end
object Italic1: TMenuItem
Tag = 2
Caption = '&Italic'
ShortCut = 16457
OnClick = EditSelectionClick
end
object Underline1: TMenuItem
Tag = 4
Caption = '&Underline'
ShortCut = 16469
OnClick = EditSelectionClick
end
object Strikeout1: TMenuItem
Tag = 8
Caption = '&Strikeout'
ShortCut = 16459
OnClick = EditSelectionClick
end
end
object Help1: TMenuItem
Caption = '&Help'
end
end
end